`qCohen` <-
function(rule, data)
{
	# qCohen
	ct = contingencyTable(rule, data)
	
	fr = ct[["nr"]] / ct[["N"]]
	f_r = ct[["n_r"]] / ct[["N"]]
	fc = ct[["nc"]] / ct[["N"]]
	f_c = ct[["n_c"]] / ct[["N"]]
	frc = ct[["nrc"]] / ct[["N"]]
	f_r_c = ct[["n_r_c"]] / ct[["N"]]
	
	return ((frc+f_r_c-(fr*fc+f_r*f_c))/(1-(fr*fc+f_r*f_c)))
}

